home *** CD-ROM | disk | FTP | other *** search
- $ set def sockit_root:[source]
- $ if p1 .EQS. "CLEAN" then goto clean
- $ if p1 .EQS. "TIDY" then goto tidy
- $ debug == ""
- $ if p1 .EQS. "DEBUG" then debug == p1
- $ options == ""
- $ altered == 0
- $!
- $!
- $ m26:
- $ set def [-.source]
- $ altered == 0
- $ @cc socket
- $ @cc insque
- $ @cc system
- $ @cc popen
- $ @cc index
- $ @cc tempnam
- $ @cc link
- $ @cc inet
- $ @cc bstring
- $ @cc tgetent
- $ oldoptions == options
- $ options == options + "/define=(vmsver=" + f$extract(1,1,f$getsyi("version")) -
- + f$extract(3,1,f$getsyi("version")) + ")"
- $ @cc get
- $ options == oldoptions
- $ @cc dbm
- $ @for dbfor
- $ @cc ntohs
- $ @cc syslog
- $ @cc dir
- $ @cc fixargv
- $ @cc time
- $ @cc file
- $ @cc getopt
- $ @cc string
- $ @cc unix2vms
- $ @cc trace
- $ set def [.dns]
- $ options == "/define=DEBUG"
- $ @[-]cc res_comp
- $ @[-]cc res_debug
- $ @[-]cc res_init
- $ @[-]cc res_mkquery
- $ @[-]cc res_query
- $ @[-]cc res_send
- $ @[-]cc gethostnamadr
- $ @[-]cc getnetbyaddr
- $ @[-]cc getnetbyname
- $ @[-]cc getnetent
- $ @[-]cc getproto
- $ @[-]cc getprotoent
- $ @[-]cc getprotoname
- $ @[-]cc getservbyname
- $ @[-]cc getservbyport
- $ @[-]cc getservent
- $ @[-]cc herror
- $ @[-]cc sethostent
- $ set def [-]
- $ @mar hpwd
- $ @mar setuser
- $ @mar setuic
- $ @mar unix_xfr
- $ if f$search("[-.lib]unixlib.exe") .EQS. "" then goto m9
- $ if altered .NE. 0 then goto m8
- $ write sys$output "unixlib is up-to-date"
- $ exit
- $ m8:
- $ delete [-.lib]unixlib.exe;
- $ m9:
- $ write sys$output "Linking unixlib"
- $ dbg == ""
- $ if debug .EQS. "DEBUG" then dbg = "/debug"
- $ gosub link
- $ exit
- $ link:
- $ if f$trnlnm("CCOMPILER") .EQS. "GCC"
- $ then
- $ copy gnuopt.opt dummy.opt
- $ else
- $ copy opt.opt dummy.opt
- $ endif
- $ link 'dbg'/share=[-.lib]unixlib.exe -
- socket,insque,system,popen,index,tempnam,link,inet,bstring,get,dbm, -
- dbfor,ntohs,syslog,dir,fixargv,time,hpwd,setuser,setuic,file,getopt, -
- string,unix2vms,trace,tgetent, -
- [.dns]res_comp,res_debug,res_init,res_mkquery,res_query,res_send, -
- gethostnamadr,getnetbyaddr,getnetbyname,getnetent,getproto, -
- getprotoent,getprotoname,getservbyname,getservbyport,getservent, -
- herror,sethostent, -
- []psectopt/opt, -
- collectopt/opt, -
- dummy/opt
- $ delete dummy.opt;
- $ return
- $ tidy:
- $ purge
- $ purge [-.bin]
- $ purge [-.lib]
- $ purge [-.include...]
- $ ren dbfor.obj dbfor.xxx
- $ delete *.obj;,[-.bin]*.obj;,*.lis;,[.dns]*.obj;*
- $ ren dbfor.xxx dbfor.obj
- $ exit
- $ clean:
- $ purge
- $ purge [-.lib]
- $ purge [-.include...]
- $ purge [-.gccinclude...]
- $ ren dbfor.obj dbfor.xxx
- $ delete *.obj;,*.lis;,[-.lib]*.exe;,[.dns]*.obj;,[.dns]*.lis;
- $ ren dbfor.xxx dbfor.obj
- $ exit
-
-